home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / gutil / atol.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-12-17  |  1.3 KB  |  65 lines
  1. # include    <useful.h>
  2. # include    <sccs.h>
  3.  
  4. SCCSID(@(#)atol.c    8.2    1/16/85)
  5.  
  6. /*
  7. **  ASCII CHARACTER STRING TO 32-BIT INTEGER CONVERSION
  8. **
  9. **    `a' is a pointer to the character string, `i' is a
  10. **    pointer to the doubleword which is to contain the result.
  11. **
  12. **    The return value of the function is:
  13. **        zero:    succesful conversion; `i' contains the integer
  14. **        +1:    numeric overflow; `i' is unchanged
  15. **        -1:    syntax error; `i' is unchanged
  16. **
  17. **    A valid string is of the form:
  18. **        <space>* [+-] <space>* <digit>* <space>*
  19. */
  20.  
  21. atol(a, i)
  22. register char    *a;
  23. long    *i;
  24. {
  25.     register int    sign;    /* flag to indicate the sign */
  26.     long        x;    /* holds the integer being formed */
  27.     register char    c;
  28.  
  29.     sign = 0;
  30.     /* skip leading blanks */
  31.     while (*a == ' ')
  32.         a++;
  33.     /* check for sign */
  34.     switch (*a)
  35.     {
  36.  
  37.       case '-':
  38.         sign = -1;
  39.  
  40.       case '+':
  41.         while (*++a == ' ');
  42.     }
  43.  
  44.     /* at this point everything had better be numeric */
  45.     x = 0;
  46.     while ((c = *a) <= '9' && c >= '0')
  47.     {
  48.         /* check for overflow */
  49.         /* 2 ** 31 = 2147483648 */
  50.         if (x > MAXI8 )
  51.             return (1);
  52.         x = x * 10 + (c - '0');
  53.         if (x < 0)    /* check if new digit caused overflow */
  54.             return (1);
  55.         a++;
  56.     }
  57.  
  58.     /* eaten all the numerics; better be all blanks */
  59.     while (c = *a++)
  60.         if(c != ' ')            /* syntax error */
  61.             return (-1);
  62.     *i = sign ? -x : x;
  63.     return (0);        /* successful termination */
  64. }
  65.